-- card: 2884 from stack: in.1
-- bmap block id: 0
-- flags: 0000
-- background id: 2648
-- name: 


-- part 1 (field)
-- low flags: 15
-- high flags: 0007
-- rect: left=33 top=38 right=263 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text


-- part 2 (field)
-- low flags: 15
-- high flags: 0002
-- rect: left=33 top=10 right=32 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: File


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=35 top=292 right=314 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read
----- HyperTalk script -----
on mouseUp
  answer file "ÉeÉLÉXÉgÉtÉ@ÉCÉãÇ©ÇÁÉfÅ[É^ÇÃì«Ç›çûÇ›ÇǵNjÇ∑ÅB" & return & "êÍópÇÃÉtÉ@ÉCÉãÇëIëǵǃÇ≠ÇæÇ≥Ç¢ÅB" of type TEXT
  if it is empty then exit mouseUp
  put it into rFN
  put rFN into cd field "File"
  open file rFN
  read from file rFN until eof
  put it into cd field "Text"
  close file rFN
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=141 top=292 right=314 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert
----- HyperTalk script -----
on mouseUp
  put the date into dateT
  convert dateT to dateItems
  put cd field "Text" into TEXT
  put "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" into CW
  put 99 into Ch
  repeat with N=1 to 10
    if char 1 to 3 of line N of TEXT is "⌃BN" then put 2 into Ch
    if char 1 to 4 of line N of TEXT is "⌃Abg" then put 20 into Ch
    if char 1 to 3 of line N of TEXT is "⌃AN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "⌃SN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "⌃CN" then put 1 into Ch
    if char 1 to 3 of line N of TEXT is "⌃DN" then put 40 into Ch
    if item 1 of line N of TEXT is "⌃ES" then put 30 into Ch
  end repeat

  if Ch=99 then
    answer "DZÇÃÉfÅ[É^ÇÕÉRÉìÉoÅ[ÉgÇÃïKóvǙdžÇËÇ‹ÇπÇÒÅB"
    exit mouseUp
  end if

  if Ch=20 then
    if char 1 to 4 of line 4 of TEXT is "⌃Abg" then delete line 4 of TEXT
    repeat with N=(number of lines of TEXT) down to 4
      if line N of TEXT is empty then
        delete line N of TEXT
        next repeat
      end if
      if char 1 of line N of TEXT is "," then
        put line N of TEXT after line N-1 of TEXT
        delete line N of TEXT
        next repeat
      end if
      if char 1 to 4 of line N of TEXT is "⌃Abg" then
        delete line N of TEXT
        put "," before line N of TEXT
      end if
      if char 1 to 5 of line N of TEXT is "⌃GC1" then
        delete line N of TEXT
        put "⌃GC1," before line N of TEXT
      end if
      if char 1 to 4 of line N of TEXT is "⌃GC2" then
        delete line N of TEXT
        put "," before line N of TEXT
      end if
    end repeat
    if item 9 of TEXT is not empty and line 1 of item 10 of TEXT is not "éÊìæì˙ÅFéëäiñºÅFè≥îFî‘çÜÅ^èÿåîî‘çÜÅ^èÿèëî‘çÜ" then
      put return & item 9 of TEXT after item 10 of TEXT
      put "îNåéÅiîNóÓÅjÅFèoóàéñ" & return into item 9 of TEXT
    end if
    if item 1 of line (number of lines of TEXT)-1 of TEXT is not "⌃DS" then
      put "⌃DS,,,,,,,,,,,,,,," & return before line (number of lines of TEXT) of TEXT
    end if
  end if

  if Ch<10 then
    repeat with N=(number of lines of TEXT) down to 2
      put N into cd field "count"
      put line N of TEXT into LN
      if LN is empty then
        delete line N of TEXT
        next repeat
      end if
      if char 1 of LN is "," then
        delete line N of TEXT
        put LN after line N-1 of TEXT
        next repeat
      end if
      if LN is "ǪÇÃëº" then
        delete line N of TEXT
        next repeat
      end if
      repeat with M=(number of chars of LN)-1 down to 1
        set cursor to busy
        if char M to M+1 of LN is ", " then put empty into char M+1 of line N of TEXT
      end repeat
      if line N of TEXT is "⌃CBå˚ç¿" then put 10 into Ch
      if item 1 of line N of TEXT is "⌃BN2" then put "⌃BN" into item 1 of line N of TEXT
    end repeat
    if Ch=2 then put "⌃CBå˚ç¿" & return & "⌃ïiñ⁄" & return & "⌃RBå˚ç¿" & return before last line of TEXT
  end if

  if Ch=30 then
    put CvSort(dateT) into DT
    repeat with N=(number of lines of TEXT) down to 2
      put item 1 of line N of TEXT into NT
      put offset("/",item 1 of line N of TEXT) into M
      if M=0 then next repeat
      put item 1 of dateT & char 1 to 2 of NT & char 4 to 5 of NT into NT
      if DT > NT then add 10000 to NT
      put NT into item 1 of line N of TEXT
    end repeat
  end if

  if Ch=40 then
    repeat with N=4 to (number of lines of TEXT)
      if char 1 to 2 of line N of TEXT is "⌃D" and item 2 of line N of TEXT is 5 then
        if item 1 of line N of TEXT is "⌃D0000" then next repeat
        put word 1 of line N+1 of TEXT into dateR
        if dateR is empty then next repeat
        put CvItem(dateR) into DR
        convert DR to dateItems
        put dateR && item (item 7 of DR) of CW into line N+1 of TEXT
      end if
    end repeat
  end if

  put TEXT into cd field "Text"
  put empty into cd field "count"
  answer "ÉfÅ[É^ÉRÉìÉoÅ[ÉgäÆóπ"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=337 top=291 right=313 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
  put cd field "File" into FN
  open file FN
  write cd field "Text" to file FN
  close file FN
  answer FN && "ï€ë∂äÆóπ"
end mouseUp


-- part 6 (field)
-- low flags: 15
-- high flags: 0000
-- rect: left=213 top=270 right=287 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: count


-- part 7 (button)
-- low flags: 00
-- high flags: A009
-- rect: left=439 top=291 right=313 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  answer "LN Data Converter ÇèIóπǵǃLJÇÊÇÎǵǢÇ≈Ç∑Ç©ÅH" with "Yes" or "No"
  if it is "No" then exit mouseUp
  doMenu "Quit HyperCard"
end mouseUp